﻿Imports System.Data.OleDb
Public Class FabricaDeConexoes

    Public Shared Function CriarConexao() As OleDbConnection
        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Config.DiretorioBD & ";Persist Security Info=False;")
        Return (con)
    End Function

End Class